Night Owl 6/Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso/026a/upsmft.zip/UPS3.PRG

Text File | 1991-09-18 | 512b | 27 lines

USE SENTFILE
SET DEVICE TO PRINT
DO WHILE .NOT. EOF()
IF CODAMT>0
@3,16 SAY "PA 123-456"
@5,9 SAY "AUTOMATED BUSINESS SERVICES"
@6,9 SAY "PO BOX 301"
@7,9 SAY "PINE GROVE MILLS, PA 16868"
@9,34 SAY CODAMT PICTURE "9999.99"
@9,49 SAY CODAMT PICTURE "9999.99"
@12,15 SAY INVNO
@12,49 SAY INVNO
@14,35 SAY DATESHIPPE
@14,49 SAY DATESHIPPE
@16,15 SAY FIRST
@16,31 SAY LAST
@17,15 SAY SHADDRESS
@18,15 SAY SHCITY
@18,31 SAY SHSTATE
@18,34 SAY SHZIP
@19,1 SAY " "
SKIP
ELSE
SKIP
ENDIF
ENDDO